#-----------------------------------------------------------#
#  죄와벌++ 이율배반 										#
#  Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD		#
#  Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ]	#
#  BLANK BOARD [ http://pom.to/ ]							#
#-----------------------------------------------------------#
# 내정 Version 1.0
#--- [주의 사항] --------------------------------------------#
# 1. 이 스크립트는 이하의 이용 규정에 따라 배포하고 있습니다. 	#
#   http://www24.big.or.jp/~obo/game/ore_/gild/				#
#-----------------------------------------------------------#

#-------------------------------------------------------------------------------
# 내정 메뉴
sub politics{

	if(!$type){

		if($camp<1){
			$log .= "무소속은 내정을 실시할 수 업습니다.<br>\n";
			$tm = $cmd = 0;
			&call_main_st;

		}else{

			$log .= "내정을 실시합니다. 실행하는 것을 선택해 주세요<br>\n";
			$tm=0;
			$type='내정';

			&politics_menu;

			&dat_write;
		}
	}
}

sub politics_menu{
	# 내정 커멘드
	my @hm	= ('그만두는', '농업', '상업', '징병', '군사를 훈련하는');

	$log2 .=qq|<form action="$script" method="$method" name="ore_">\n|;
	$log2 .=qq|<td align="center" valign="middle">\n| if($mv_mode eq 'pc');
	$log2 .=qq|<input type="hidden" name="id" value="$id">\n<input type="hidden" name="pw" value="$pw">\n|;

	$log2 .=qq|<select name="cmd" size="1">\n|;
	foreach(0 .. $#hm){ $log2 .= "<option value=$_>$hm[$_]</option>\n";}
	$log2 .=qq|</select><br>\n|;
	$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;
}

#-------------------------------------------------------------------------------
# 내정 처리
sub politics_exe{

	if(!$tm){

		if($cmd<=0){
			$log .= "나중에 실시하기로 했다. <br>\n";
			$tm = $cmd = 0;
			$type='';
			&call_main_st;

		# 농업
		}elsif($cmd==1){

			# 행동 카운트의 리셋트(무조건)
			$act_cnt=0;

			$log .= "농업을 실시합니다. 결과는$GMW 시간 후. <br>\n";
			$v=int(((rand(10)+1)*100)*$lr);
			$v=9999 if($v>9999);
			$tm=25;
			$rank_exe++;
			$pr=$GMT;
	
			if($camp==1){
				$cf1 += $v;
			}elsif($camp==2){
				$cf2 += $v;
			}elsif($camp==3){
				$cf3 += $v;
			}elsif($camp==4){
				$cf4 += $v;
			}elsif($camp==5){
				$cf5 += $v;
			}
			$mes = "$v 의 자금을 얻었다";

			$tm=50;

		# 상업
		}elsif($cmd==2){

			# 행동 카운트의 리셋트(무조건)
			$act_cnt=0;

			$log .= "상업을 실시합니다. 결과는$GMW 시간 후. <br>\n";
			$v=int(((rand(10)+1)*15)*$lr);#처음은 $v=int(((rand(10)+1)*10)*$lr);
			$v=999 if($v>999);
			$tm=25;
			$rank_exe++;
			$pr=$GMT;
	
			if($camp==1){
				$cg1 += $v;
			}elsif($camp==2){
				$cg2 += $v;
			}elsif($camp==3){
				$cg3 += $v;
			}elsif($camp==4){
				$cg4 += $v;
			}elsif($camp==5){
				$cg5 += $v;
			}
			$mes = "$v G 국가예\산이 증가했다";

			$tm=50;

		# 징병-1
		}elsif($cmd==3){
			$log .= "징병을 실행합니까? 군사 1 명에 대해 1 G 필요합니다<br>\n";
			$tm=15;

			$log2 .=qq|<form action="$script" method="$method" name="ore_">\n|;
			$log2 .=qq|<td align="center" valign="middle">\n| if($mv_mode eq 'pc');
			$log2 .=qq|<input type="hidden" name="id" value="$id">\n<input type="hidden" name="pw" value="$pw">\n|;
			$log2 .=qq|<select name="cmd" size="1">\n|;
			$log2 .=qq|<option value="0">그만두는</option>\n|;
			$log2 .=qq|<option value="1">천명</option>\n|;
			$log2 .=qq|<option value="2">5천명</option>\n|;
			$log2 .=qq|<option value="3">1만명</option>\n|;
			$log2 .=qq|</select><br>\n|;
			$log2 .=qq|<input type="submit" $button1 value="NEXT">$td_end</form>\n|;

		# 군사를 훈련한다
		}elsif($cmd==4){

			if($my_cs<1){
				$log .= "군사가 없습니다<br>\n";
				$tm = $cmd = 0;
				&politics_menu;
			}elsif($sol_lv>99){
				$log .= "훈련도는 더 이상 오르지 않습니다<br>\n";
				$tm = $cmd = 0;
				&politics_menu;
			}else{

				# 행동 카운트의 리셋트(한계시만)
				$act_cnt=0 if($act_cnt>$act_cnt_limit);

				$log .= "군사의 훈련을 행합니다<br>\n";
				$pr=int($GMT/2);
				$x = int($lr/2);
				if($x<1){
					$x=1;
			}
				$v = int((rand(20))+$x);
				$sol_lv += $v;
				if($sol_lv>100){
					$sol_lv=100;
				}
				$mes = "훈련도가 $v 상승했다";
				$tm=50;
			}
		}

	# 징병-2
	}elsif($tm==15){

		$z=$g_p[$rank]-$sol;
		if($cmd<=0){
			$log .= "나중에 실시하기로 했다. <br>\n";
			$tm = $cmd = 0;
			&politics_menu;
		}elsif($cmd==1){

			# 행동 카운트의 리셋트(무조건)
			$act_cnt=0;

			$log .= "최대천명 규모의 징병을 실행합니다. 결과는$GMW 시간 후에<br>\n";
			$S = int(((rand(50))+100)*$lr);
			$S = 1000 if($S>1000);
			$rank_exe++;

			if($S<$gold){
				$gold-=$S;
			}elsif($gold<$S){
				$S=$gold;
				$gold=0;
			}

			if($camp==1){
				$cs1+=$S;
			}elsif($camp==2){
				$cs2+=$S;
			}elsif($camp==3){
				$cs3+=$S;
			}elsif($camp==4){
				$cs4+=$S;
			}elsif($camp==5){
				$cs5+=$S;
			}

			$mes = "$S 인의 군사가 모였다";
			$pr=$GMT;
			$tm=50;
		}elsif($cmd==2){

			# 행동 카운트의 리셋트(무조건)
			$act_cnt=0;

			$log .= "최대5천명 규모의 징병을 실행합니다. 결과는$GMW 시간 후에<br>\n";
			$S = int(((rand(50))+100)*$lr);
			$S = 5000 if($S>5000);
			$rank_exe+=int(rand(2)+1);

			if($S<$gold){
				$gold-=$S;
			}elsif($gold<$S){
				$S=$gold;
				$gold=0;
			}

			if($camp==1){
				$cs1+=$S;
			}elsif($camp==2){
				$cs2+=$S;
			}elsif($camp==3){
				$cs3+=$S;
			}elsif($camp==4){
				$cs4+=$S;
			}elsif($camp==5){
				$cs5+=$S;
			}

			$mes = "$S 인의 군사가 모였다";
			$pr=$GMT;
			$tm=50;
		}elsif($cmd==3){

			# 행동 카운트의 리셋트(무조건)
			$act_cnt=0;

			$log .= "최대1만명 규모의 징병을 실행합니다. 결과는$GMW 시간 후에<br>\n";
			$S = int(((rand(50))+100)*$lr);
			$S = 10000 if($S>10000);
			$rank_exe+=int(rand(3)+1);

			if($S<$gold){
				$gold-=$S;
			}elsif($gold<$S){
				$S=$gold;
				$gold=0;
			}

			if($camp==1){
				$cs1+=$S;
			}elsif($camp==2){
				$cs2+=$S;
			}elsif($camp==3){
				$cs3+=$S;
			}elsif($camp==4){
				$cs4+=$S;
			}elsif($camp==5){
				$cs5+=$S;
			}

			$mes = "$S 인의 군사가 모였다";
			$pr=$GMT;
			$tm=50;
		}
	}

	# 내정의 종료(공로금 수여)
	elsif($tm==50){
		if($rank > 7 && $sogo!=3 && $sogo!=4){#낙인은 무효화
			$gold += $v = $rank * 200;
			$log .= "지금까지의 공적이 인정되고 나라에서 $v G의 공로금을 받았다. <br>\n";
		}
		$tm = $cmd = 0;
		$type="";
		&call_main_st;
	}
	# 내정의 종료(공로금 없음)
	elsif($tm==55){
		$tm = $cmd = 0;
		$type="";
		&call_main_st;
	}

	&write_data;

}





1;
